home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / learnapi / main.frm (.txt) < prev    next >
Visual Basic Form  |  1998-07-04  |  33KB  |  751 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "LearnAPI"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   255
  7.    ClientTop       =   1035
  8.    ClientWidth     =   2760
  9.    Icon            =   "Main.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3780
  14.    ScaleWidth      =   2760
  15.    Begin VB.CommandButton cmdRun 
  16.       Caption         =   "&Run"
  17.       Height          =   375
  18.       Left            =   120
  19.       TabIndex        =   7
  20.       Top             =   720
  21.       Width           =   2535
  22.    End
  23.    Begin VB.ComboBox cboAPIFunction 
  24.       Height          =   315
  25.       Left            =   120
  26.       Style           =   2  'Dropdown List
  27.       TabIndex        =   5
  28.       Top             =   360
  29.       Width           =   2535
  30.    End
  31.    Begin VB.Frame fraGroup 
  32.       Caption         =   "ShellExecute Function"
  33.       Height          =   855
  34.       Index           =   1
  35.       Left            =   120
  36.       TabIndex        =   2
  37.       Top             =   2520
  38.       Width           =   2415
  39.       Begin VB.Label lblURL 
  40.          AutoSize        =   -1  'True
  41.          BackStyle       =   0  'Transparent
  42.          Caption         =   "Longonot Software Web-Site"
  43.          BeginProperty Font 
  44.             Name            =   "MS Sans Serif"
  45.             Size            =   8.25
  46.             Charset         =   0
  47.             Weight          =   400
  48.             Underline       =   -1  'True
  49.             Italic          =   0   'False
  50.             Strikethrough   =   0   'False
  51.          EndProperty
  52.          ForeColor       =   &H00FF0000&
  53.          Height          =   195
  54.          Left            =   120
  55.          MouseIcon       =   "Main.frx":030A
  56.          MousePointer    =   99  'Custom
  57.          TabIndex        =   4
  58.          Top             =   240
  59.          Width           =   2055
  60.       End
  61.       Begin VB.Label lblMailto 
  62.          AutoSize        =   -1  'True
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "longonot@intekom.co.za"
  65.          BeginProperty Font 
  66.             Name            =   "MS Sans Serif"
  67.             Size            =   8.25
  68.             Charset         =   0
  69.             Weight          =   400
  70.             Underline       =   -1  'True
  71.             Italic          =   0   'False
  72.             Strikethrough   =   0   'False
  73.          EndProperty
  74.          ForeColor       =   &H00FF0000&
  75.          Height          =   195
  76.          Left            =   240
  77.          MouseIcon       =   "Main.frx":045C
  78.          MousePointer    =   99  'Custom
  79.          TabIndex        =   3
  80.          Top             =   480
  81.          Width           =   1770
  82.       End
  83.    End
  84.    Begin VB.Timer tmrFlashWindow 
  85.       Enabled         =   0   'False
  86.       Interval        =   200
  87.       Left            =   2400
  88.       Top             =   0
  89.    End
  90.    Begin VB.Label lblDiscription 
  91.       BorderStyle     =   1  'Fixed Single
  92.       Caption         =   "Discription of API function."
  93.       Height          =   1215
  94.       Left            =   120
  95.       TabIndex        =   8
  96.       Top             =   1200
  97.       Width           =   2535
  98.       WordWrap        =   -1  'True
  99.    End
  100.    Begin VB.Label lblSelectFunction 
  101.       AutoSize        =   -1  'True
  102.       Caption         =   "Select an API Function:"
  103.       Height          =   195
  104.       Left            =   120
  105.       TabIndex        =   6
  106.       Top             =   120
  107.       Width           =   1680
  108.    End
  109.    Begin VB.Label lblCredits 
  110.       AutoSize        =   -1  'True
  111.       BackStyle       =   0  'Transparent
  112.       Caption         =   "About / Credits"
  113.       BeginProperty Font 
  114.          Name            =   "MS Sans Serif"
  115.          Size            =   8.25
  116.          Charset         =   0
  117.          Weight          =   700
  118.          Underline       =   -1  'True
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       ForeColor       =   &H00008000&
  123.       Height          =   195
  124.       Left            =   120
  125.       MouseIcon       =   "Main.frx":05AE
  126.       MousePointer    =   99  'Custom
  127.       TabIndex        =   1
  128.       Top             =   3480
  129.       Width           =   1305
  130.    End
  131.    Begin VB.Label lblExit 
  132.       BackStyle       =   0  'Transparent
  133.       Caption         =   "Exit"
  134.       BeginProperty Font 
  135.          Name            =   "MS Sans Serif"
  136.          Size            =   8.25
  137.          Charset         =   0
  138.          Weight          =   700
  139.          Underline       =   -1  'True
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       ForeColor       =   &H00008000&
  144.       Height          =   255
  145.       Left            =   1560
  146.       MouseIcon       =   "Main.frx":0700
  147.       MousePointer    =   99  'Custom
  148.       TabIndex        =   0
  149.       Top             =   3480
  150.       Width           =   375
  151.    End
  152. Attribute VB_Name = "frmMain"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. Option Explicit
  158. Dim CustomColors() As Byte 'Variable to hold custom colours
  159. Dim RunningInIDE As Boolean 'Used to hold running in IDE or not
  160. Private Sub cSetWindowPos()
  161. Dim flags%, lResult&
  162. Static Invert As Boolean
  163. flags = SWP_NOSIZE Or SWP_NOMOVE
  164. If Invert = False Then
  165.     lResult = SetWindowPos(frmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)
  166.     Invert = True
  167. ElseIf Invert = True Then
  168.     lResult = SetWindowPos(frmMain.hwnd, HWND_NOTTOPMOST, 0, 0, 0, 0, flags)
  169.     Invert = False
  170. End If
  171. End Sub
  172. Private Sub cGetOpenFileName()
  173. 'The code to call the Open Dialog box is in the
  174. 'fGetOpenFileName function
  175. Dim Path$, Filter$
  176.     Filter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0)
  177.     Path = fGetOpenFileName(Filter)
  178.     If Path <> "Cancel" Then
  179.         MsgBox "You selected " & Path, vbOKOnly + vbInformation, "LearnAPI"
  180.     End If
  181. End Sub
  182. Private Sub cGetFileAttributes()
  183. Dim Path$, Filter$, Att&, Msg$
  184. On Error GoTo OpenError
  185.     Filter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0)
  186.     Path = fGetOpenFileName(Filter)
  187.     If Path <> "Cancel" Then
  188.         Att = GetFileAttributes(Path)
  189.         If (Att And FILE_ATTRIBUTE_ARCHIVE) <> 0 Then Msg = Msg & "Archive" & vbCrLf
  190.         If (Att And FILE_ATTRIBUTE_COMPRESSED) <> 0 Then Msg = Msg & "Compressed" & vbCrLf
  191.         If (Att And FILE_ATTRIBUTE_DIRECTORY) <> 0 Then Msg = Msg & "Directory" & vbCrLf
  192.         If (Att And FILE_ATTRIBUTE_HIDDEN) <> 0 Then Msg = Msg & "Hidden" & vbCrLf
  193.         If (Att And FILE_ATTRIBUTE_NORMAL) <> 0 Then Msg = Msg & "Normal" & vbCrLf
  194.         If (Att And FILE_ATTRIBUTE_READONLY) <> 0 Then Msg = Msg & "Read only" & vbCrLf
  195.         If (Att And FILE_ATTRIBUTE_SYSTEM) <> 0 Then Msg = Msg & "System" & vbCrLf
  196.         MsgBox "The file attributes for " & Path & " are:" & vbCrLf & vbCrLf & Msg, vbOKOnly + vbInformation, "LearnAPI"
  197.     End If
  198.     Exit Sub
  199. OpenError:
  200.     MsgBox "Could not find file attributes.", vbOKOnly + vbExclamation, "LearnAPI"
  201. End Sub
  202. Private Sub cGetCursorPos()
  203. Dim v As POINTAPI, Success&
  204.     Success = GetCursorPos(v)
  205.     MsgBox "The mouse coordinates are: " & v.X & ", " & v.Y, vbOKOnly + vbInformation, "LearnAPI"
  206. End Sub
  207. Private Sub cFindExecutable()
  208. Dim OpenFile As OPENFILENAME
  209. Dim Success As Long, FileTitleLength%, Filter$
  210. Dim Result$, X&, DirLen#, FileLen#, Dir$
  211. On Error GoTo OpenError
  212.     'The following lines open the Open Dialog box using API calls
  213.     OpenFile.lStructSize = Len(OpenFile)
  214.     OpenFile.hwndOwner = frmMain.hwnd
  215.     OpenFile.hInstance = App.hInstance
  216.     Filter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0)
  217.     OpenFile.lpstrFilter = Filter
  218.     OpenFile.nFilterIndex = 1
  219.     OpenFile.lpstrFile = String(257, 0)
  220.     OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
  221.     OpenFile.lpstrFileTitle = OpenFile.lpstrFile
  222.     OpenFile.nMaxFileTitle = OpenFile.nMaxFile
  223.     OpenFile.lpstrTitle = "LearnAPI - Open Dialog Box"
  224.     OpenFile.flags = 0
  225.     Success = GetOpenFileName(OpenFile)
  226.     If Success = 0 Then
  227.         Exit Sub
  228.     Else:
  229. 'The next 4 lines remove null length strings.
  230. 'Trim does not work. Anyone got a better idea?
  231.         lblDiscription.ToolTipText =